home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 003.dms / 003.adf / EXAMPLE_PROGRAMS / example11.AMOS / example11.amosSourceCode < prev    next >
AMOS Source Code  |  1993-02-25  |  848b  |  61 lines
  1. Rem example11.Amos 
  2. '
  3. '
  4. '**      To break out of this program hold down CTRL and press C 
  5. '
  6. '
  7. Rem A little slideshow to demonstrate UNPACK 
  8. '
  9. '
  10. Rem Hide mouse pointer, Set tracker mod to loop continously,play the music.  
  11. Hide : Track Loop On : Track Play 5
  12. '
  13. '
  14. Rem set a label (or marker) called BEGIN so GOTO knows where to jump to
  15. BEGIN:
  16. '
  17. '
  18. Rem UNPACK the picture stored in bank 12 to screen 0 
  19. Unpack 12 To 0
  20. '
  21. '
  22. Rem wait 8 seconds 
  23. Wait 400
  24. '
  25. '
  26. Rem fade out the screen to black 
  27. Fade 5
  28. '
  29. '
  30. Rem wait fade*15 
  31. Wait 25
  32. '
  33. '
  34. Rem unpack bank 11 to screen 0 
  35. Unpack 11 To 0
  36. '
  37. '
  38. Wait 400
  39. '
  40. '
  41. Fade 1
  42. '
  43. '
  44. Wait 15
  45. '
  46. '
  47. Rem unpack bank 10 to screen 0 
  48. Unpack 10 To 0
  49. '
  50. '
  51. Wait 400
  52. '
  53. '
  54. Fade 10
  55. '
  56. '
  57. Wait 150
  58. '
  59. Rem there are no more pictures so GOTO the label marked BEGIN
  60. Rem which will restart the display again, this program will go onfor ever. 
  61. Goto BEGIN